home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00052_Script_52 < prev    next >
Text File  |  1997-07-29  |  235b  |  9 lines
  1. on exitFrame
  2.   set thelist = [:]
  3.   repeat with x = 5 to 20
  4.     set im_s to  "doimp(,"&x - 4&")"
  5.     addProp thelist, im_s, the rect of sprite x
  6.   end repeat
  7.   set_cursors( [4,9,11,12,16,21,22,24,25,27,28])
  8.   --  put thelist
  9. end